home *** CD-ROM | disk | FTP | other *** search
/ Libris Britannia 4 / science library(b).zip / science library(b) / INFO / FTP2UK23.ZIP / ftget.proto < prev    next >
Text File  |  1991-09-16  |  839b  |  42 lines
  1. #!/bin/sh
  2. #
  3. # $Id: ftget.proto,v 1.0 91/09/16 18:00:41 nino Exp Locker: nino $
  4. #
  5. # N.Margetic, Dept. of Medical Physisc, UCL  (nino@mph.sm.ucl.ac.uk)
  6. # script for getting the stuff via ft-relay
  7. #
  8. # $Log:    ftget.proto,v $
  9. # Revision 1.0  91/09/16  18:00:41  nino
  10. # Initial revision
  11. #
  12. #
  13. pgname=`basename $0`
  14. swtch=
  15. bdir=
  16. dir=
  17. file=
  18. host=
  19. #
  20. # set parameters according to host
  21. case $pgname in
  22. wustl)    host=wuarchive.wustl.edu;bdir=mirrors/msdos;;
  23. prep)   host=prep.ai.mit.edu;bdir=pub;;
  24. watsun) host=watsun.cc.columbia.edu;bdir=kermit;;
  25. *)        echo "Host $pgname not supported (yet)...";\
  26.         echo "usage: $pgname [-b] directory file";exit 1;;
  27. esac
  28. #
  29. # input processing
  30. case $1 in
  31. "")    echo "usage: $pgname [-b] directory file";exit 1;;
  32. -*)    swtch=$1;shift;;
  33. esac
  34. #
  35. dir=$1; shift;
  36. file=$1; shift;
  37. #
  38. # do it.
  39. ftget $swtch $bdir/$dir $file $host
  40. #
  41. # end
  42.